home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
chaosexe.zip
/
CHAOS.TRU
< prev
next >
Wrap
Text File
|
1980-01-01
|
3KB
|
64 lines
clear
library "ltent.trc","llogisti.trc","lhenon.trc","lcircle.trc","lmotion.trc","lphase2d.trc","lphase3d.trc","lpoincar.trc","lreadpoi.trc"
library "lpendsic.trc","linitflo.trc","lbifurca.trc","lreadbif.trc","lbasinpo.trc","lreadbas.trc","lfft.trc","lelpha2d.trc","lexpfft.trc"
library "sglib.trc","3dlib.trc","framelib.trc","prtlib.trc","lpendlya.trc"
do
print"**********************************************************************"
print"* *"
print"* CHAOS PROGRAMS *"
PRINT"* *"
print"* G.L.Baker and J.P.Gollub *"
print"* copyright 1988 Bryn Athyn, PA *"
PRINT"**********************************************************************"
print
print
print
print
print"Press any key for menu"
get key variable
clear
print" ***PROGRAMS***"
print
PRINT" MAPS"
PRINT" (1)TENT MAP (2)LOGISTIC MAP (3)HENON MAP (4)CIRCLE MAP"
PRINT
PRINT" DYNAMICAL SYSTEMS"
PRINT" PENDULUM"
PRINT" (5)MOTION (6)2D-PHASE DIAGRAM (10)READ 2D-PHASE FILE"
PRINT" (8)3D-PHASE DIAGRAM (9)POINCARE SECTION (10)READ POINCARE FILE"
PRINT" (11)INIT. ORBITS (12)INIT. BLOCK FLO (13)BIFURCATION DIAG."
PRINT" (14)READ BIF. FILE (15)BASINS OF ATTRA. (16)READ BASIN FILE"
PRINT" (17)FAST FOURIER TR. (18)LYAPUONV EXPS."
PRINT" ELECTRICAL"
PRINT" (20)L,R,variable C CIRCUIT"
print
PRINT" MISC."
PRINT" (30)FFT OF LINEAR COMBINATION OF SINE WAVES"
PRINT" (99)EXIT PROGRAM"
PRINT
INPUT PROMPT" Input the number corresponding to your choice => ":choice
PRINT
if choice < 99 then PRINT"BE PATIENT..."
if choice=1 then call xtent
if choice=2 then call xlogisti
IF CHOICE=3 THEN call xhenon
if choice=4 then call xcircle
if choice=5 then call xmotion
if choice=6 then call xphase2d
if choice=8 then call xphase3d
if choice=9 then call xpoincar
if choice=10 then call xreadpoi
if choice=11 then call xpendsic
if choice=12 then call xinitflo
if choice=13 then call xbifurca
if choice=14 then call xreadbif
if choice=15 then call xbasinpo
if choice=16 then call xreadbas
if choice=17 then call xfft
IF CHOICE=18 THEN CALL XPENDLYA
if choice=20 then call xelpha2d
if choice = 30 then call xexpfft
loop until choice=99
Print"Press <esc> key to finish"
end